home *** CD-ROM | disk | FTP | other *** search
/ People & Parliament - A …er's Guide to Westminster / People and Parliament - A Stranger's Guide to Westminster (1998)(House of Commons).iso / parl / 8bit80.dir / 00097_Script_97 < prev    next >
Text File  |  1998-03-23  |  558b  |  17 lines
  1. on mouseUp
  2.   GLOBAL QRESULT
  3.   PUT THE TEXT OF MEMBER "QUIZ STUFF" INTO BLOB
  4.   
  5.   PUT RANDOM(240) INTO RANDOMQ
  6.   PUT LINE 1+(RANDOMQ*5) OF BLOB INTO QFIELD
  7.   PUT LINE 2+(RANDOMQ*5) OF BLOB INTO AFIELD1
  8.   PUT LINE 3+(RANDOMQ*5) OF BLOB INTO AFIELD2
  9.   PUT LINE 4+(RANDOMQ*5) OF BLOB INTO AFIELD3
  10.   PUT LINE 5+(RANDOMQ*5) OF BLOB INTO QRESULT
  11.   
  12.   SET THE TEXT OF MEMBER "QFIELD" TO ""&QFIELD
  13.   SET THE TEXT OF MEMBER "AFIELD1" TO ""&AFIELD1
  14.   SET THE TEXT OF MEMBER "AFIELD2" TO ""&AFIELD2
  15.   SET THE TEXT OF MEMBER "AFIELD3" TO ""&AFIELD3
  16.   
  17. end